home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 21
/
Cream of the Crop 21 (Terry Blount) (October 1996).iso
/
comm
/
pirch32.zip
/
MASSGREE.PIL
< prev
next >
Wrap
Text File
|
1996-07-22
|
734b
|
27 lines
{----------------------------------------------------------------------------------------------------------
*** Script: MASSGREET
*** Date: 7/9/96
----------------------------------------------------------------------------------------------------------}
$s := '';
opsonly := true;
k := strtoint($members);
for i := 1 to k do
begin
$thisnick := nicklist($audience,i);
if strlen($s+$thisnick) > 255 then
begin
command('/msg ',$audience,' hi ',$s);
$s := '';
end;
if ($thisnick <> $me) and ($thisnick <> 'X') and ($thisnick <> 'W') then
begin
if strlen($s) > 0 then
$s := $s + ', ';
$s := $s + $thisnick;
end;
end;
if strlen($s) > 0 then
begin
command('/msg ',$audience,' hi ',$s);
end;